home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 December / 64er_Magazin_90-12_1990_Markt__Technik_de_Side_A.d64 / checksummer v3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  23 lines
  1. 1 poke 45,peek(174):poke46,peek(175):clr
  2. 10 print"checksummer fuer c 64"
  3. 11 print:print"einen moment, bitte ..."
  4. 12 fori=828to864:reada:pokei,a:ps=ps+a:nexti
  5. 13 ifps<>5765thenprint"tippfehler in den zeilen 20 bis 22":end
  6. 14 sys828:ps=0:fori=58464to58583:reada:pokei,a:ps=ps+a:nexti
  7. 15 ifps<>16147thenprint"tippfehler in den zeilen 22 bis 30":end
  8. 16 poke1,53:poke42289,96:poke42290,228
  9. 17 print"checksummer aktiviert."
  10. 18 print:print" ausschalten : poke1,55 oder"spc(27)"<run/stop+restore>"
  11. 19 print:print" anschalten : poke1,53"
  12. 20 data169,0,133,254,162,1,189,93,3,133,255,160,0,177,254
  13. 21 data145,254,136,208,249,230,255,165,255,221,95,3,208,238,202
  14. 22 data16,230,96,160,224,192,0,160,2,169,0,170,133,254,177
  15. 23 data95,240,40,201,32,208,3,200,208,245,133,255,138,41,7
  16. 24 data170,240,14,72,165,255,24,42,105,0,202,208,249,133,255
  17. 25 data104,170,232,165,255,24,101,254,133,254,76,111,228,192,4
  18. 26 data48,219,198,214,165,214,72,162,3,169,32,157,1,4,189
  19. 27 data212,228,32,210,255,208,12,0,92,72,32,201,255,170,104
  20. 28 data144,1,138,96,202,16,228,166,254,169,0,32,205,189,169
  21. 29 data62,32,210,255,104,133,214,32,108,229,169,141,32,210,255
  22. 30 data76,128,164,9,60,18,19
  23.